home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_gen
/
dflogo12.zip
/
SPIRAL.DFP
< prev
next >
Wrap
Text File
|
1993-01-27
|
391b
|
38 lines
TO SPIRAL :COUNT :SIDE :INC :ANGLE
HIDETURTLE
PENDOWN
REPEAT :COUNT [FORWARD :SIDE RIGHT :ANGLE MAKE "SIDE :SIDE + :INC]
PENUP
SHOWTURTLE
END
TO GO
SPIRAL 120 10 2 117
END
TO GO2
SPIRAL 47 10 6 117
END
TO GO3
SPIRAL 151 5 2 125
END
TO GO4
SPIRAL 150 5 2 91
END
TO GO5
SPIRAL 150 5 4 181
END